home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / e_to_l / fbuilder / delphi / demos / testfrm.dfm / testfrm.txt
Encoding:
Text File  |  1996-09-15  |  6.0 KB  |  198 lines
  1. object Form1: TForm1
  2.   Left = 63
  3.   Top = 48
  4.   BorderIcons = [biSystemMenu]
  5.   BorderStyle = bsDialog
  6.   Caption = 'Formula Builder Sample Program'
  7.   ClientHeight = 353
  8.   ClientWidth = 524
  9.   Font.Color = clWindowText
  10.   Font.Height = -14
  11.   Font.Name = 'System'
  12.   Font.Pitch = fpVariable
  13.   Font.Style = []
  14.   PixelsPerInch = 96
  15.   OnActivate = FormActivate
  16.   OnCreate = FormCreate
  17.   OnDeactivate = FormDeactivate
  18.   TextHeight = 16
  19.   object FunctionCountLabel: TLabel
  20.     Left = 20
  21.     Top = 320
  22.     Width = 128
  23.     Height = 16
  24.     Caption = 'FunctionCountLabel'
  25.     Font.Color = clWindowText
  26.     Font.Height = -13
  27.     Font.Name = 'System'
  28.     Font.Pitch = fpVariable
  29.     Font.Style = []
  30.     ParentFont = False
  31.   end
  32.   object Bevel1: TBevel
  33.     Left = 212
  34.     Top = 300
  35.     Width = 293
  36.     Height = 40
  37.   end
  38.   object BitBtn1: TBitBtn
  39.     Left = 324
  40.     Top = 308
  41.     Width = 87
  42.     Height = 26
  43.     Caption = 'Evaluate'
  44.     TabOrder = 0
  45.     OnClick = BitBtn1Click
  46.     Glyph.Data = {
  47.       78010000424D7801000000000000760000002800000020000000100000000100
  48.       04000000000000000000120B0000120B00000000000000000000000000000000
  49.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  50.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
  51.       73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
  52.       0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
  53.       0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
  54.       0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
  55.       0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
  56.       0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
  57.       0333337F777777737F333308888888880333337F333333337F33330888888888
  58.       03333373FFFFFFFF7333337000000000733333377777777733330000}
  59.     NumGlyphs = 2
  60.   end
  61.   object BitBtn2: TBitBtn
  62.     Left = 420
  63.     Top = 308
  64.     Width = 71
  65.     Height = 26
  66.     TabOrder = 1
  67.     Kind = bkClose
  68.   end
  69.   object ResultsPanel: TPanel
  70.     Left = 12
  71.     Top = 224
  72.     Width = 493
  73.     Height = 69
  74.     Alignment = taLeftJustify
  75.     BevelInner = bvRaised
  76.     BevelOuter = bvNone
  77.     TabOrder = 2
  78.     object Label2: TLabel
  79.       Left = 8
  80.       Top = 4
  81.       Width = 42
  82.       Height = 16
  83.       Caption = '&Result'
  84.     end
  85.     object ResultMemo: TMemo
  86.       Left = 8
  87.       Top = 22
  88.       Width = 477
  89.       Height = 35
  90.       TabStop = False
  91.       Enabled = False
  92.       Lines.Strings = (
  93.         '')
  94.       ParentColor = True
  95.       TabOrder = 0
  96.     end
  97.   end
  98.   object BitBtn3: TBitBtn
  99.     Left = 224
  100.     Top = 308
  101.     Width = 91
  102.     Height = 26
  103.     Caption = '&Functions'
  104.     TabOrder = 3
  105.     OnClick = BitBtn3Click
  106.     Glyph.Data = {
  107.       78010000424D7801000000000000760000002800000020000000100000000100
  108.       04000000000000000000120B0000120B00000000000000000000000000000000
  109.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  110.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  111.       333333333333333333333333333333333333333FFFFFFFFFFF33330000000000
  112.       03333377777777777F33333003333330033333377FF333377F33333300333333
  113.       0333333377FF33337F3333333003333303333333377FF3337333333333003333
  114.       333333333377FF3333333333333003333333333333377FF33333333333330033
  115.       3333333333337733333333333330033333333333333773333333333333003333
  116.       33333333337733333F3333333003333303333333377333337F33333300333333
  117.       03333333773333337F33333003333330033333377FFFFFF77F33330000000000
  118.       03333377777777777333333333333333333333333333333333330000}
  119.     NumGlyphs = 2
  120.   end
  121.   object Panel1: TPanel
  122.     Left = 12
  123.     Top = 16
  124.     Width = 493
  125.     Height = 205
  126.     Caption = 'Panel1'
  127.     TabOrder = 4
  128.     object Label1: TLabel
  129.       Left = 8
  130.       Top = 8
  131.       Width = 74
  132.       Height = 16
  133.       Caption = '&Expression'
  134.       FocusControl = ComboBox1
  135.     end
  136.     object ListBox1: TListBox
  137.       Left = 8
  138.       Top = 56
  139.       Width = 477
  140.       Height = 137
  141.       ItemHeight = 16
  142.       Items.Strings = (
  143.         '10^2'
  144.         'true | false'
  145.         'true & false'
  146.         
  147.           'iif(dayname(today())='#39'Monday'#39','#39'Whered the weekend go'#39',Str(6-week' +
  148.           'day(today()))+'#39' days till friday !'#39')'
  149.         'sin( rad(90) )'
  150.         'replicate(chr(196),30)'
  151.         '" Tan(90)/Cos(90) = " + Str( Tan(90) / Cos(90) )'
  152.         'mid("This should return Test",20,4)'
  153.         'mid("Test is what this should return",4)'
  154.         'today() + 10'
  155.         'Daysbetween(Today(),{10/10/2001})'
  156.         'Proper('#39'SAMuEL wooDSON'#39')'
  157.         'today() > {10/10/95}'
  158.         
  159.           #39'Current Balance '#39'+padright( '#39'$'#39'+Str(weekday(today()) * 10)+'#39'.50' +
  160.           #39', 10,'#39'*'#39')'
  161.         'Soundex('#39'haywood'#39')'
  162.         'Soundex('#39'Wayward'#39')'
  163.         'SoundAlike('#39'fred'#39','#39'head'#39')'
  164.         'Wordcount('#39'This function, if successful, should return 7'#39','#39' ,'#39')'
  165.         
  166.           'Extract('#39'Function in uppercase should be returned'#39','#39' ,'#39',TRUE,TRU' +
  167.           'E)'
  168.         'Ltrim('#39'******$99.00'#39','#39'*'#39')'
  169.         'strpos('#39'.'#39',str(cos(45)))'
  170.         'first(8,'#39'The rain in Spain'#39')'
  171.         'Padcenter('#39'Centered String'#39',45,'#39'*'#39')'
  172.         'strmin('#39'well'#39','#39'trained'#39','#39'horsemen'#39','#39'ride'#39','#39'swiftly'#39')'
  173.         
  174.           'strmax('#39'Daniel'#39','#39'Mary'#39','#39'Ian'#39','#39'Alicia'#39','#39'Paul'#39','#39'Barbara'#39','#39'Lushena'#39 +
  175.           ')'
  176.         'length('#39'The length of this string is 31'#39')'
  177.         'Replace('#39'Please send the IRS your taxes'#39','#39'the IRS'#39','#39'me'#39')'
  178.         'Cos( PI() )'
  179.         'ABS( Cos(90) )'
  180.         'Max( Cos(PI) , SIN(PI) , ATAN(PI) , CSC(PI) , COT(PI) )'
  181.         #39'The fractional value of Cos(10) = '#39'+Str(Frac(Cos(10)))'
  182.         #39'The square root of 89 is '#39'+str( sqrt(89) )')
  183.       TabOrder = 0
  184.       OnClick = ListBox1Click
  185.       OnDblClick = ListBox1DblClick
  186.     end
  187.     object ComboBox1: TComboBox
  188.       Left = 8
  189.       Top = 28
  190.       Width = 477
  191.       Height = 24
  192.       ItemHeight = 16
  193.       TabOrder = 1
  194.       OnEnter = ComboBox1Enter
  195.     end
  196.   end
  197. end
  198.